home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / util / arc / lzxconv2.lha / src / LZXConv.e
Text File  |  1997-10-22  |  1KB  |  75 lines
  1. MODULE 'DOS/dos'
  2.  
  3. PROC main()
  4. DEF file[300]:STRING,old,l
  5.  
  6.     StringF(file,'makedir LZXTemp')
  7.     Execute(file,0,0)
  8.     l:=Lock('LZXTemp',-2)
  9.     old:=CurrentDir(l)
  10.     StringF(file,'Lx \s',arg,arg)
  11.     Execute(file,0,0)
  12.     StringF(file,'lzx -r -e -bi250 -M1800 -Qf -3 a SYS:temp.lzx #?',arg)
  13.     Execute(file,0,0)
  14.     StringF(file,arg)
  15.     UpperStr(file)
  16.     slice(file,arg)
  17.     StringF(file,'Copy SYS:temp.lzx \s',arg)
  18.     Execute(file,0,0)
  19.     StringF(file,'Delete SYS:temp.lzx >NIL:')
  20.     Execute(file,0,0)
  21.     CurrentDir(old)
  22.     UnLock(l)
  23.     StringF(file,'Delete LZXTemp ALL >NIL:')
  24.     Execute(file,0,0)
  25. ENDPROC
  26.  
  27.  
  28.  
  29. PROC slice(name,nameX)
  30.  
  31.     MOVE.L  name,A0
  32.     MOVE.L  nameX,A1
  33. s:  ADD.L   #1,A0
  34.     ADD.L   #1,A1
  35.     CMP.B   #0,(A0)
  36.     BEQ     outa
  37.     CMP.L   #".LHA",(A0)
  38.     BNE     s1
  39.     MOVE.L  #".LZX",(A1)
  40. s1:
  41.     CMP.L   #".LZH",(A0)
  42.     BNE     s2
  43.     MOVE.L  #".LZX",(A1)
  44. s2:
  45.     CMP.L   #".ARC",(A0)
  46.     BNE     s3
  47.     MOVE.L  #".LZX",(A1)
  48. s3:
  49.     CMP.L   #".ZOO",(A0)
  50.     BNE     s4
  51.     MOVE.L  #".LZX",(A1)
  52. s4:
  53.     CMP.L   #".ARJ",(A0)
  54.     BNE     s5
  55.     MOVE.L  #".LZX",(A1)
  56. s5:
  57.     CMP.L   #".ZIP",(A0)
  58.     BNE     s6
  59.     MOVE.L  #".LZX",(A1)
  60. s6:
  61.     CMP.L   #".PP",(A0)
  62.     BNE     s7
  63.     MOVE.L  #".LZX",(A1)
  64. s7:
  65.     CMP.L   #".XPK",(A0)
  66.     BNE     s8
  67.     MOVE.L  #".LZX",(A1)
  68. s8: CMP.L   #".LZX",(A0)
  69.     BNE     s
  70.  
  71. outa:
  72.  
  73.  
  74. ENDPROC
  75.